#!/usr/bin/perl -w
use warnings;

####################################################################
#   Desenvolvido por: Marcelo Gigliotti
#   E-mail: marcelo.gigliotti@vivo.com.br
#
#
#
#
####################################################################

my $PASSWD_FILE = "/etc/passwd";
my $SHADOW_FILE = "/etc/shadow";
my $DATA_ATUAL = `date '+%e%m%Y'`;


# Efetuando backup dos arquivos

`/bin/cp $PASSWD_FILE $PASSWD_FILE.$DATA_ATUAL`;
`/bin/cp $SHADOW_FILE $SHADOW_FILE.$DATA_ATUAL`;

# FORMATO DA LINHA NO PASSWD

my $PASSWD_LINE = "$login::$id_usuario:$grupo_usuario:$descricao_usuario.$numero_incidente:/home/$login:/bin/ksh";

# FORMATO DA LINHA NO SHADOW

my $SHADOW_LINE = "$login:$senha:14236::::::";

while ( <> ) {
	my ($login, $id_usuario, $grupo_usuario, $descricao_usuario, $numero_incidente) = $_;
	
}
